(include-book "io-utilities" :dir :teachpacks)

(defun getHour (dayTime)
  (let* ((zeroBasedHour (mod (floor dayTime 2) 12)))
    (if (equal zeroBasedHour 0)
        12
        zeroBasedHour)))


(defun countertoday (counter)
  (let* ((flooor (floor counter 48)))
    (cond ((equal flooor 0) "U")
          ((equal flooor 1) "M")
          ((equal flooor 2) "T")
          ((equal flooor 3) "W")
          ((equal flooor 4) "R")
          ((equal flooor 5) "F")
          ((equal flooor 6) "S")
          (t "Error"))))
    ;(rat->str counter 0)))

(defun countertotime (counter)
  (let* ((day (countertoday counter))
         (dayTime (mod counter 48))
         (half (mod dayTime 2))
         (isAm (< dayTime 24)))
    (concatenate 'string
                 day
                 " "
                 (rat->str (getHour dayTime) 0)
                 ":"
                 (if (equal half 0)
                     "00"
                     "30")
                 (if isAm
                     "am"
                     "pm"))))

  
(defun countertotimeslot (start end)
  (concatenate 'string (countertotime start) " - " (countertotime end)))

(defun getonetime (bits start end)
  (if (or (equal (car bits) 1) (null bits))
      (list (countertotimeslot start end) bits end)
      (getonetime (cdr bits) start (+ end 1))))

(defun bitlist->timesstringHelper (bits counter)
  (if (null bits)
      ""
      (if (equal (car bits) 0)
          ; found a new set of times
          (let* ((ret (getonetime bits counter counter))
                 (timestr (car ret))
                 (rembits (cadr ret))
                 (counter (caddr ret)))
            (cons timestr (bitlist->timesstringHelper rembits counter)))
          (bitlist->timesstringHelper (cdr bits) (+ counter 1)))))

(defun concatenateListOfStrings(times)
  (if (consp times)
      (concatenate 'string (car times) "\t" (concatenateListOfStrings (cdr times)))
      ""))
  

(defun bitlist->timesstring (bits)
  (let* ((times (bitlist->timesstringHelper bits 0)))
    (concatenateListOfStrings times)))


; should return M 5:00pm~7:00pm; W 6:00pm~8:00pm; R 1:00pm~2:00pm 
;(bitlist->stringtimes '(111111111111111111111111111111111111111111111111111111111111111111111111111111111100001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111000011111111111111111111111111111111110011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111))
(bitlist->timesstring '(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))
(bitlist->timesstring '(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))
(bitlist->timesstring '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1))
